home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / Afc / RamScan_Example.e < prev    next >
Encoding:
Text File  |  1997-09-09  |  748 b   |  53 lines
  1. /*
  2.  
  3.     DirList Example
  4.  
  5.     RamScan
  6.  
  7.  
  8.     (C)Copyright 1996/97 Amiga Foundation Classes
  9.  
  10.     See:    http://www.intercom.it/~fsoft/afc.html
  11.  
  12.             FOR more info about AFC AND more modules
  13.  
  14. */
  15.  
  16. MODULE 'afc/dirlist',
  17.        'afc/explain_exception'
  18.  
  19. PROC main() HANDLE
  20.   DEF dl:PTR TO dirlist
  21.  
  22.   NEW dl.dirlist()
  23.  
  24.  
  25.   dl.setattrs([DIRTAG_COMPLETEPATH, TRUE,
  26.                DIRTAG_MARKDIR, TRUE,
  27.               0,0
  28.              ])
  29.  
  30.  
  31.  
  32.   dl.setdir('ram:')
  33.   WriteF('Reading...\n')
  34.   dl.read(TRUE, TRUE)
  35.   WriteF('Sorting...')
  36.   dl.sort(TRUE)
  37.  
  38.   WriteF('Done!\n')
  39.  
  40.   IF dl.first()
  41.     REPEAT
  42.       WriteF('\s\n',dl.obj())
  43.     UNTIL dl.succ()=FALSE
  44.   ENDIF
  45.  
  46.   WriteF('Dir Name:"\s"\n', dl.dirname())
  47.  
  48. EXCEPT DO
  49.   explain_exception()
  50.   END dl
  51. ENDPROC
  52.  
  53.